|
700
|
How can I change the shape of the task bar
OleObject oG2antt,var_Bar,var_Items
oG2antt = ole_1.Object
var_Bar = oG2antt.Chart.Bars.Copy("Task","T2")
var_Bar.StartShape = 2
var_Bar.StartColor = RGB(255,0,0)
oG2antt.Chart.FirstVisibleDate = 2001-01-01
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Item 1"),"T2",2001-01-02,2001-01-04)
var_Items.AddBar(var_Items.AddItem("Item 2"),"Task",2001-01-02,2001-01-04)
|
|
699
|
How can I change the starting shape for all task bars
OleObject oG2antt,var_Bar,var_Items
oG2antt = ole_1.Object
var_Bar = oG2antt.Chart.Bars.Item("Task")
var_Bar.StartShape = 1
var_Bar.StartColor = RGB(255,0,0)
oG2antt.Chart.FirstVisibleDate = 2001-01-01
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Item 1"),"Task",2001-01-02,2001-01-04)
|
|
698
|
How can I change the height of the task bar
OleObject oG2antt,var_Items
oG2antt = ole_1.Object
oG2antt.Chart.Bars.Copy("Task","T2").Height = 17
oG2antt.Chart.FirstVisibleDate = 2001-01-01
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Item 1"),"T2",2001-01-02,2001-01-04)
var_Items.AddBar(var_Items.AddItem("Item 2"),"Task",2001-01-02,2001-01-04)
|
|
697
|
How can I change the height for all task bars
OleObject oG2antt,var_Items
oG2antt = ole_1.Object
oG2antt.Chart.Bars.Item("Task").Height = 17
oG2antt.Chart.FirstVisibleDate = 2001-01-01
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Item 1"),"Task",2001-01-02,2001-01-04)
|
|
696
|
How can I change the color of the task bar
OleObject oG2antt,var_Items
oG2antt = ole_1.Object
oG2antt.Chart.Bars.Copy("Task","T2").Color = RGB(255,0,0)
oG2antt.Chart.FirstVisibleDate = 2001-01-01
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Item 1"),"T2",2001-01-02,2001-01-04)
var_Items.AddBar(var_Items.AddItem("Item 2"),"Task",2001-01-02,2001-01-04)
|
|
695
|
How can I change the color for all task bars
OleObject oG2antt,var_Items
oG2antt = ole_1.Object
oG2antt.Chart.Bars.Item("Task").Color = RGB(255,0,0)
oG2antt.Chart.FirstVisibleDate = 2001-01-01
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Item 1"),"Task",2001-01-02,2001-01-04)
|
|
694
|
How can I change the shape for all task bars
OleObject oG2antt,var_Items
oG2antt = ole_1.Object
oG2antt.Chart.Bars.Item("Task").Shape = 4
oG2antt.Chart.FirstVisibleDate = 2001-01-01
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Item 1"),"Task",2001-01-02,2001-01-04)
|
|
693
|
How can I change the shape of the task bar
OleObject oG2antt,var_Items
oG2antt = ole_1.Object
oG2antt.Chart.Bars.Copy("Task","T2").Shape = 19
oG2antt.Chart.FirstVisibleDate = 2001-01-01
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Item 1"),"T2",2001-01-02,2001-01-04)
|
|
692
|
How can I change the pattern or style for all task bars
OleObject oG2antt,var_Items
oG2antt = ole_1.Object
oG2antt.Chart.Bars.Item("Task").Pattern = 5
oG2antt.Chart.FirstVisibleDate = 2001-01-01
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Item 1"),"Task",2001-01-02,2001-01-04)
|
|
691
|
How can I change the pattern of the task bar
OleObject oG2antt,var_Items
oG2antt = ole_1.Object
oG2antt.Chart.Bars.Copy("Task","T2").Pattern = 5
oG2antt.Chart.FirstVisibleDate = 2001-01-01
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Item 1"),"T2",2001-01-02,2001-01-04)
|
|
690
|
How can I add a percent bar in the chart area, so the task bar is splited for non working days or hours
OleObject oG2antt,var_Items
any h
oG2antt = ole_1.Object
oG2antt.Columns.Add("Task")
oG2antt.Chart.Bars.Add("Task%Progress:Split").Shortcut = "TS"
oG2antt.Chart.FirstVisibleDate = 2001-01-01
var_Items = oG2antt.Items
h = var_Items.AddItem("Task 1")
var_Items.AddBar(h,"TS",2001-01-02,2001-01-16,"P1")
var_Items.ItemBar(h,"P1",12,0.14)
var_Items.ItemBar(h,"P1",14,true)
|
|
689
|
How can I add a bar in the chart area, so the task bar is splited for non working days or hours
OleObject oG2antt,var_Items
oG2antt = ole_1.Object
oG2antt.Columns.Add("Task")
oG2antt.Chart.Bars.Add("Task:Split").Shortcut = "TS"
oG2antt.Chart.FirstVisibleDate = 2001-01-01
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Task 1"),"TS",2001-01-02,2001-01-16)
|
|
688
|
How can I add a split bar in the chart area
OleObject oG2antt,var_Items
oG2antt = ole_1.Object
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = 2001-01-01
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Task 1"),"Split",2001-01-02,2001-01-06)
|
|
687
|
How can I add a progress bar in the chart area
OleObject oG2antt,var_Items
oG2antt = ole_1.Object
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = 2001-01-01
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Task 1"),"Progress",2001-01-02,2001-01-06)
|
|
686
|
How can I add a milestone bar in the chart area
OleObject oG2antt,var_Items
oG2antt = ole_1.Object
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = 2001-01-01
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Task 1"),"Milestone",2001-01-02,2001-01-02)
|
|
685
|
How can I add a summary bar in the chart area
OleObject oG2antt,var_Items
oG2antt = ole_1.Object
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = 2001-01-01
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Task 1"),"Summary",2001-01-02,2001-01-06)
|
|
684
|
How can I add a project summary bar in the chart area
OleObject oG2antt,var_Items
oG2antt = ole_1.Object
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = 2001-01-01
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Task 1"),"Project Summary",2001-01-02,2001-01-06)
|
|
683
|
How can I add a deadline bar in the chart area
OleObject oG2antt,var_Items
oG2antt = ole_1.Object
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = 2001-01-01
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Task 1"),"Deadline",2001-01-02,2001-01-02)
|
|
682
|
How can I add a task bar in the chart area
OleObject oG2antt,var_Items
oG2antt = ole_1.Object
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = 2001-01-01
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",2001-01-02,2001-01-04)
|
|
681
|
How can I assign a picture or an icon to a bar in the chart
OleObject oG2antt,var_Items
any h
oG2antt = ole_1.Object
oG2antt.HTMLPicture("p1","c:\exontrol\images\zipdisk.gif")
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = 2001-01-01
var_Items = oG2antt.Items
h = var_Items.AddItem("Task 1")
var_Items.ItemHeight(h,48)
var_Items.AddBar(h,"Task",2001-01-02,2001-01-06,"K1")
var_Items.ItemBar(h,"K1",3,"<img>p1</img>")
var_Items.ItemBar(h,"K1",4,2)
|
|
680
|
How can I assign a picture or an icon to a bar in the chart
OleObject oG2antt,var_Items
any h
oG2antt = ole_1.Object
oG2antt.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = 2001-01-01
var_Items = oG2antt.Items
h = var_Items.AddItem("Task 1")
var_Items.AddBar(h,"Task",2001-01-02,2001-01-06,"K1")
var_Items.ItemBar(h,"K1",3,"<img>1</img>")
|
|
679
|
How can I display or add an anchor or a hyperlink in the link
OleObject oG2antt,var_Items
any h1,h2
oG2antt = ole_1.Object
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = 2001-01-01
var_Items = oG2antt.Items
h1 = var_Items.AddItem("Task 1")
var_Items.AddBar(h1,"Task",2001-01-01,2001-01-03,"K1")
var_Items.AddItem("")
var_Items.AddItem("")
h2 = var_Items.AddItem("Task 2")
var_Items.AddBar(h2,"Task",2001-01-05,2001-01-07,"K2")
var_Items.AddLink("L1",h1,"K1",h2,"K2")
var_Items.Link("L1",12,"just <a1>link</a>")
|
|
678
|
How can I display a picture or an icon on the link
OleObject oG2antt,var_Items
any h1,h2
oG2antt = ole_1.Object
oG2antt.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = 2001-01-01
var_Items = oG2antt.Items
h1 = var_Items.AddItem("Task 1")
var_Items.AddBar(h1,"Task",2001-01-01,2001-01-03,"K1")
var_Items.AddItem("")
var_Items.AddItem("")
var_Items.AddItem("")
var_Items.AddItem("")
h2 = var_Items.AddItem("Task 2")
var_Items.AddBar(h2,"Task",2001-01-05,2001-01-07,"K2")
var_Items.AddLink("L1",h1,"K1",h2,"K2")
var_Items.Link("L1",12,"just <img>1</img> link")
|
|
677
|
How can I display a picture or an icon on the link
OleObject oG2antt,var_Items
any h1,h2
oG2antt = ole_1.Object
oG2antt.HTMLPicture("pic1","c:\exontrol\images\zipdisk.gif")
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = 2001-01-01
var_Items = oG2antt.Items
h1 = var_Items.AddItem("Task 1")
var_Items.AddBar(h1,"Task",2001-01-01,2001-01-03,"K1")
var_Items.AddItem("")
var_Items.AddItem("")
var_Items.AddItem("")
var_Items.AddItem("")
h2 = var_Items.AddItem("Task 2")
var_Items.AddBar(h2,"Task",2001-01-05,2001-01-07,"K2")
var_Items.AddLink("L1",h1,"K1",h2,"K2")
var_Items.Link("L1",12,"<img>pic1</img><br><br>just a link")
|
|
676
|
How can I display some HTML text or caption on link
OleObject oG2antt,var_Items
any h1,h2
oG2antt = ole_1.Object
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = 2001-01-01
var_Items = oG2antt.Items
h1 = var_Items.AddItem("Task 1")
var_Items.AddBar(h1,"Task",2001-01-01,2001-01-03,"K1")
h2 = var_Items.AddItem("Task 2")
var_Items.AddBar(h2,"Task",2001-01-05,2001-01-07,"K2")
var_Items.AddLink("L1",h1,"K1",h2,"K2")
var_Items.Link("L1",12,"L<b>1</b>")
|
|
675
|
How can I assign a tooltip to a link
OleObject oG2antt,var_Items
any h1,h2
oG2antt = ole_1.Object
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = 2001-01-01
var_Items = oG2antt.Items
h1 = var_Items.AddItem("Task 1")
var_Items.AddBar(h1,"Task",2001-01-01,2001-01-03,"K1")
h2 = var_Items.AddItem("Task 2")
var_Items.AddBar(h2,"Task",2001-01-05,2001-01-07,"K2")
var_Items.AddLink("L1",h1,"K1",h2,"K2")
var_Items.Link("L1",12,"L<b>1</b>")
var_Items.Link("L1",13,"This is a bit of text that's shown when the cursor hovers the link")
|
|
674
|
Can I change the width or the size of the link
OleObject oG2antt,var_Items
any h1,h2
oG2antt = ole_1.Object
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = 2001-01-01
var_Items = oG2antt.Items
h1 = var_Items.AddItem("Task 1")
var_Items.AddBar(h1,"Task",2001-01-02,2001-01-04,"K1")
h2 = var_Items.AddItem("Task 2")
var_Items.AddBar(h2,"Task",2001-01-05,2001-01-07,"K2")
var_Items.AddLink("L1",h1,"K1",h2,"K2")
var_Items.Link("L1",9,0)
var_Items.Link("L1",10,2)
|
|
673
|
Can I change the style of the link
OleObject oG2antt,var_Items
any h1,h2
oG2antt = ole_1.Object
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = 2001-01-01
var_Items = oG2antt.Items
h1 = var_Items.AddItem("Task 1")
var_Items.AddBar(h1,"Task",2001-01-02,2001-01-04,"K1")
h2 = var_Items.AddItem("Task 2")
var_Items.AddBar(h2,"Task",2001-01-05,2001-01-07,"K2")
var_Items.AddLink("L1",h1,"K1",h2,"K2")
var_Items.Link("L1",9,4)
|
|
672
|
Can I change the color of the link
OleObject oG2antt,var_Items
any h1,h2
oG2antt = ole_1.Object
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = 2001-01-01
var_Items = oG2antt.Items
h1 = var_Items.AddItem("Task 1")
var_Items.AddBar(h1,"Task",2001-01-02,2001-01-04,"K1")
h2 = var_Items.AddItem("Task 2")
var_Items.AddBar(h2,"Task",2001-01-05,2001-01-07,"K2")
var_Items.AddLink("L1",h1,"K1",h2,"K2")
var_Items.Link("L1",8,255)
|
|
671
|
Can I change the part of the bar where the link ends
OleObject oG2antt,var_Items
any h1,h2
oG2antt = ole_1.Object
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = 2001-01-01
var_Items = oG2antt.Items
h1 = var_Items.AddItem("Task 1")
var_Items.AddBar(h1,"Task",2001-01-02,2001-01-04,"K1")
h2 = var_Items.AddItem("Task 2")
var_Items.AddBar(h2,"Task",2001-01-05,2001-01-07,"K2")
var_Items.AddLink("L1",h1,"K1",h2,"K2")
var_Items.Link("L1",6,1)
var_Items.Link("L1",7,1)
|
|
670
|
Can I change the part of the bar where the link starts
OleObject oG2antt,var_Items
any h1,h2
oG2antt = ole_1.Object
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = 2001-01-01
var_Items = oG2antt.Items
h1 = var_Items.AddItem("Task 1")
var_Items.AddBar(h1,"Task",2001-01-02,2001-01-04,"K1")
h2 = var_Items.AddItem("Task 2")
var_Items.AddBar(h2,"Task",2001-01-05,2001-01-07,"K2")
var_Items.AddLink("L1",h1,"K1",h2,"K2")
var_Items.Link("L1",6,0)
|
|
669
|
How can I associate an extra data to a link
OleObject oG2antt,var_Items
any h1,h2
oG2antt = ole_1.Object
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = 2001-01-01
var_Items = oG2antt.Items
h1 = var_Items.AddItem("Task 1")
var_Items.AddBar(h1,"Task",2001-01-02,2001-01-04,"K1")
h2 = var_Items.AddItem("Task 2")
var_Items.AddBar(h2,"Task",2001-01-05,2001-01-07,"K2")
var_Items.AddLink("L1",h1,"K1",h2,"K2")
var_Items.Link("L1",5,"your data")
|
|
668
|
How can I show or hide a specified link
OleObject oG2antt,var_Items
any h1,h2
oG2antt = ole_1.Object
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = 2001-01-01
var_Items = oG2antt.Items
h1 = var_Items.AddItem("Task 1")
var_Items.AddBar(h1,"Task",2001-01-02,2001-01-04,"K1")
h2 = var_Items.AddItem("Task 2")
var_Items.AddBar(h2,"Task",2001-01-05,2001-01-07,"K2")
var_Items.AddLink("L1",h1,"K1",h2,"K2")
var_Items.Link("L1",3,false)
|
|
667
|
How can I get the key of the bar where the link end
OleObject oG2antt,var_Items
any h1,h2
oG2antt = ole_1.Object
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = 2001-01-01
var_Items = oG2antt.Items
h1 = var_Items.AddItem("Task 1")
var_Items.AddBar(h1,"Task",2001-01-02,2001-01-04,"K1")
h2 = var_Items.AddItem("Task 2")
var_Items.AddBar(h2,"Task",2001-01-05,2001-01-07,"K2")
var_Items.AddLink("L1",h1,"K1",h2,"K2")
var_Items.AddItem(var_Items.Link("L1",3))
|
|
666
|
How can I get the key of the bar where the link starts
OleObject oG2antt,var_Items
any h1,h2
oG2antt = ole_1.Object
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = 2001-01-01
var_Items = oG2antt.Items
h1 = var_Items.AddItem("Task 1")
var_Items.AddBar(h1,"Task",2001-01-02,2001-01-04,"K1")
h2 = var_Items.AddItem("Task 2")
var_Items.AddBar(h2,"Task",2001-01-05,2001-01-07,"K2")
var_Items.AddLink("L1",h1,"K1",h2,"K2")
var_Items.AddItem(var_Items.Link("L1",1))
|
|
665
|
How can I get the handle of the item where the link ends
OleObject oG2antt,var_Items
any h1,h2
oG2antt = ole_1.Object
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = 2001-01-01
var_Items = oG2antt.Items
h1 = var_Items.AddItem("Task 1")
var_Items.AddBar(h1,"Task",2001-01-02,2001-01-04,"K1")
h2 = var_Items.AddItem("Task 2")
var_Items.AddBar(h2,"Task",2001-01-05,2001-01-07,"K2")
var_Items.AddLink("L1",h1,"K1",h2,"K2")
var_Items.AddItem(var_Items.Link("L1",2))
|
|
664
|
How can I get the handle of the item where the link starts
OleObject oG2antt,var_Items
any h1,h2
oG2antt = ole_1.Object
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = 2001-01-01
var_Items = oG2antt.Items
h1 = var_Items.AddItem("Task 1")
var_Items.AddBar(h1,"Task",2001-01-02,2001-01-04,"K1")
h2 = var_Items.AddItem("Task 2")
var_Items.AddBar(h2,"Task",2001-01-05,2001-01-07,"K2")
var_Items.AddLink("L1",h1,"K1",h2,"K2")
var_Items.AddItem(var_Items.Link("L1",0))
|
|
663
|
How can I enumerate the links in the chart
OleObject oG2antt,var_Items
any h1,h2
oG2antt = ole_1.Object
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = 2001-01-01
var_Items = oG2antt.Items
h1 = var_Items.AddItem("Task 1")
var_Items.AddBar(h1,"Task",2001-01-02,2001-01-04,"K1")
h2 = var_Items.AddItem("Task 2")
var_Items.AddBar(h2,"Task",2001-01-05,2001-01-07,"K2")
var_Items.AddLink("L1",h1,"K1",h2,"K2")
var_Items.AddLink("L2",h2,"K2",h1,"K1")
var_Items.AddItem(var_Items.FirstLink)
var_Items.AddItem(var_Items.NextLink(var_Items.FirstLink))
|
|
662
|
How can I access the properties and method of the link between two bars
OleObject oG2antt,var_Items
any h1,h2
oG2antt = ole_1.Object
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = 2001-01-01
var_Items = oG2antt.Items
h1 = var_Items.AddItem("Task 1")
var_Items.AddBar(h1,"Task",2001-01-01,2001-01-03,"K1")
h2 = var_Items.AddItem("Task 2")
var_Items.AddBar(h2,"Task",2001-01-05,2001-01-07,"K2")
var_Items.AddLink("L1",h1,"K1",h2,"K2")
var_Items.Link("L1",12,"L<b>1</b>")
|
|
661
|
How can I remove a link between two bars
OleObject oG2antt,var_Items
any h1,h2
oG2antt = ole_1.Object
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = 2001-01-01
var_Items = oG2antt.Items
h1 = var_Items.AddItem("Task 1")
var_Items.AddBar(h1,"Task",2001-01-02,2001-01-04,"K1")
h2 = var_Items.AddItem("Task 2")
var_Items.AddBar(h2,"Task",2001-01-05,2001-01-07,"K2")
var_Items.AddLink("L1",h1,"K1",h2,"K2")
var_Items.ClearLinks()
|
|
660
|
How can I remove a link between two bars
OleObject oG2antt,var_Items
any h1,h2
oG2antt = ole_1.Object
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = 2001-01-01
var_Items = oG2antt.Items
h1 = var_Items.AddItem("Task 1")
var_Items.AddBar(h1,"Task",2001-01-02,2001-01-04,"K1")
h2 = var_Items.AddItem("Task 2")
var_Items.AddBar(h2,"Task",2001-01-05,2001-01-07,"K2")
var_Items.AddLink("L1",h1,"K1",h2,"K2")
var_Items.RemoveLink("L1")
|
|
659
|
How do I add a link between two bars
OleObject oG2antt,var_Items
any h1,h2
oG2antt = ole_1.Object
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = 2001-01-01
var_Items = oG2antt.Items
h1 = var_Items.AddItem("Task 1")
var_Items.AddBar(h1,"Task",2001-01-02,2001-01-04,"K1")
h2 = var_Items.AddItem("Task 2")
var_Items.AddBar(h2,"Task",2001-01-05,2001-01-07,"K2")
var_Items.AddLink("L1",h1,"K1",h2,"K2")
|
|
658
|
How do I ungroup the bars in the chart
OleObject oG2antt,var_Items
any h1,h2
oG2antt = ole_1.Object
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = 2001-01-01
var_Items = oG2antt.Items
h1 = var_Items.AddItem("Task 1")
var_Items.AddBar(h1,"Task",2001-01-02,2001-01-04,"K1")
h2 = var_Items.AddItem("Task 2")
var_Items.AddBar(h2,"Task",2001-01-05,2001-01-07,"K2")
var_Items.GroupBars(h1,"K1",true,h2,"K2",true)
var_Items.GroupBars(h1,"K1",false,h2,"K2",false)
var_Items.UngroupBars(h1,"K1",h2,"K2")
|
|
657
|
How do I group one or more bars in the chart, so they are moved together
OleObject oG2antt,var_Items
any h1,h2
oG2antt = ole_1.Object
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = 2001-01-01
var_Items = oG2antt.Items
h1 = var_Items.AddItem("Task 1")
var_Items.AddBar(h1,"Task",2001-01-02,2001-01-04,"K1")
h2 = var_Items.AddItem("Task 2")
var_Items.AddBar(h2,"Task",2001-01-05,2001-01-07,"K2")
var_Items.GroupBars(h1,"K1",true,h2,"K2",true)
var_Items.GroupBars(h1,"K1",false,h2,"K2",false)
|
|
656
|
How do I find the number or count of bars in the item
OleObject oG2antt,var_Items
any h
oG2antt = ole_1.Object
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = 2001-01-01
var_Items = oG2antt.Items
h = var_Items.AddItem("Task 1")
var_Items.AddBar(h,"Task",2001-01-01,2001-01-02,"K1")
var_Items.AddBar(h,"Task",2001-01-04,2001-01-06,"K2")
var_Items.ItemBar(h,"K2",3,var_Items.ItemBar(h,"<*>",256))
|
|
655
|
How can I assign any extra data to a bar in the chart
OleObject oG2antt,var_Items
any h
oG2antt = ole_1.Object
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = 2001-01-01
var_Items = oG2antt.Items
h = var_Items.AddItem("Task 1")
var_Items.AddBar(h,"Task",2001-01-02,2001-01-06,"K1")
var_Items.ItemBar(h,"K1",17,"your data")
|
|
654
|
How can I enable or disable resizing the percent value of a progress bar, at runtime
OleObject oG2antt,var_Items
any h
oG2antt = ole_1.Object
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = 2001-01-01
oG2antt.Chart.Bars.Add("Task%Progress").Shortcut = "Percent"
var_Items = oG2antt.Items
h = var_Items.AddItem("Task 1")
var_Items.AddBar(h,"Percent",2001-01-02,2001-01-06,"K1")
var_Items.ItemBar(h,"K1",12,0.35)
var_Items.ItemBar(h,"K1",16,false)
|
|
653
|
Is there any way to change the background color for percent value being displayed on the progress bar
OleObject oG2antt,var_Items
any h
oG2antt = ole_1.Object
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = 2001-01-01
oG2antt.Chart.Bars.Add("Task%Progress").Shortcut = "Percent"
var_Items = oG2antt.Items
h = var_Items.AddItem("Task 1")
var_Items.AddBar(h,"Percent",2001-01-02,2001-01-06,"K1")
var_Items.ItemBar(h,"K1",12,0.35)
var_Items.ItemBar(h,"K1",14,true)
var_Items.ItemBar(h,"K1",13,"<bgcolor=FF0000> %p%</bgcolor>")
|
|
652
|
Is there any way to change the color for percent value being displayed on the progress bar
OleObject oG2antt,var_Items
any h
oG2antt = ole_1.Object
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = 2001-01-01
oG2antt.Chart.Bars.Add("Task%Progress").Shortcut = "Percent"
var_Items = oG2antt.Items
h = var_Items.AddItem("Task 1")
var_Items.AddBar(h,"Percent",2001-01-02,2001-01-06,"K1")
var_Items.ItemBar(h,"K1",12,0.35)
var_Items.ItemBar(h,"K1",14,true)
var_Items.ItemBar(h,"K1",13,"<fgcolor=FF0000>%p%</fgcolor>")
|
|
651
|
Is there any way to change the font for percent value being displayed on the progress bar
OleObject oG2antt,var_Items
any h
oG2antt = ole_1.Object
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = 2001-01-01
oG2antt.Chart.Bars.Add("Task%Progress").Shortcut = "Percent"
var_Items = oG2antt.Items
h = var_Items.AddItem("Task 1")
var_Items.AddBar(h,"Percent",2001-01-02,2001-01-06,"K1")
var_Items.ItemBar(h,"K1",12,0.35)
var_Items.ItemBar(h,"K1",14,true)
var_Items.ItemBar(h,"K1",13,"<b><font Tahoma;12>%%p</font></b>")
|
|
650
|
How can I horizontally align the caption / percent of a progress-bar
OleObject oG2antt,var_Bar,var_Chart,var_Items
any h
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Task")
var_Chart = oG2antt.Chart
var_Chart.LevelCount = 2
var_Chart.PaneWidth(false,128)
var_Chart.FirstVisibleDate = 2001-01-01
var_Bar = var_Chart.Bars.Add("Task%Progress")
var_Bar.Shortcut = "Percent"
var_Bar.Def(14,true)
var_Bar.Def(12,1)
var_Items = oG2antt.Items
h = var_Items.AddItem("Left")
var_Items.AddBar(h,"Percent",2001-01-02,2001-01-06,"K1")
var_Items.ItemBar(h,"K1",15,0)
h = var_Items.AddItem("Center")
var_Items.AddBar(h,"Percent",2001-01-02,2001-01-06,"K1")
var_Items.ItemBar(h,"K1",15,1)
h = var_Items.AddItem("Right")
var_Items.AddBar(h,"Percent",2001-01-02,2001-01-06,"K1")
var_Items.ItemBar(h,"K1",15,2)
h = var_Items.AddItem("Left")
var_Items.AddBar(h,"Percent",2001-01-02,2001-01-06,"K1")
var_Items.ItemBar(h,"K1",15,0)
var_Items.ItemBar(h,"K1",12,0.5)
h = var_Items.AddItem("Center")
var_Items.AddBar(h,"Percent",2001-01-02,2001-01-06,"K1")
var_Items.ItemBar(h,"K1",12,0.5)
var_Items.ItemBar(h,"K1",15,1)
h = var_Items.AddItem("Right")
var_Items.AddBar(h,"Percent",2001-01-02,2001-01-06,"K1")
var_Items.ItemBar(h,"K1",15,2)
var_Items.ItemBar(h,"K1",12,0.5)
oG2antt.EndUpdate()
|
|
649
|
Is there any way to change the format of the percent being displayed on the progress bar
OleObject oG2antt,var_Items
any h
oG2antt = ole_1.Object
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = 2001-01-01
oG2antt.Chart.Bars.Add("Task%Progress").Shortcut = "Percent"
var_Items = oG2antt.Items
h = var_Items.AddItem("Task 1")
var_Items.AddBar(h,"Percent",2001-01-02,2001-01-06,"K1")
var_Items.ItemBar(h,"K1",12,0.4)
var_Items.ItemBar(h,"K1",14,true)
var_Items.ItemBar(h,"K1",13,"<b>%p/100</b>")
|
|
648
|
How can I show or hide the percent value in the progress bar
OleObject oG2antt,var_Items
any h
oG2antt = ole_1.Object
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = 2001-01-01
oG2antt.Chart.Bars.Add("Task%Progress").Shortcut = "Percent"
var_Items = oG2antt.Items
h = var_Items.AddItem("Task 1")
var_Items.AddBar(h,"Percent",2001-01-02,2001-01-06,"K1")
var_Items.ItemBar(h,"K1",12,0.4)
var_Items.ItemBar(h,"K1",14,true)
|
|
647
|
How can I change the percent value in a progress bar
OleObject oG2antt,var_Items
any h
oG2antt = ole_1.Object
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = 2001-01-01
oG2antt.Chart.Bars.Add("Task%Progress").Shortcut = "Percent"
var_Items = oG2antt.Items
h = var_Items.AddItem("Task 1")
var_Items.AddBar(h,"Percent",2001-01-02,2001-01-06,"K1")
var_Items.ItemBar(h,"K1",12,0.4)
|
|
646
|
How can I add a percent bar
/*begin event BarResize(long Item,any Key) - Occurs when a bar is moved or resized.*/
/*
oG2antt = ole_1.Object
MessageBox("Information",string( String(Key) ))
*/
/*end event BarResize*/
OleObject oG2antt,var_Bar,var_Chart,var_Items
any h
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Task")
var_Chart = oG2antt.Chart
var_Chart.LevelCount = 2
var_Chart.FirstVisibleDate = 2001-01-01
var_Chart.PaneWidth(false,64)
var_Bar = var_Chart.Bars.Add("Task%Progress")
var_Bar.Shortcut = "P"
var_Bar.Def(14,true)
var_Items = oG2antt.Items
h = var_Items.AddItem("Task 1")
var_Items.AddBar(h,"P",2001-01-02,2001-01-06,"K1")
var_Items.ItemBar(h,"K1",12,0.4)
h = var_Items.AddItem("Task 2")
var_Items.AddBar(h,"Task%Progress",2001-01-02,2001-01-06,"K2")
var_Items.ItemBar(h,"K2",12,0.15)
oG2antt.EndUpdate()
|
|
645
|
How can I fix or lock a specified bar at runtime, in the chart
OleObject oG2antt,var_Items
any h
oG2antt = ole_1.Object
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = 2001-01-01
var_Items = oG2antt.Items
h = var_Items.AddItem("Task 1")
var_Items.AddBar(h,"Task",2001-01-02,2001-01-06,"K1")
var_Items.ItemBar(h,"K1",10,false)
var_Items.ItemBar(h,"K1",11,false)
|
|
644
|
How can I enabled or disable moving a specified bar at runtime, in the chart
OleObject oG2antt,var_Items
any h
oG2antt = ole_1.Object
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = 2001-01-01
var_Items = oG2antt.Items
h = var_Items.AddItem("Task 1")
var_Items.AddBar(h,"Task",2001-01-02,2001-01-06,"K1")
var_Items.ItemBar(h,"K1",10,false)
var_Items.ItemBar(h,"K1",11,false)
|
|
643
|
How can I enabled or disable sizing a specified bar at runtime, in the chart
OleObject oG2antt,var_Items
any h
oG2antt = ole_1.Object
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = 2001-01-01
var_Items = oG2antt.Items
h = var_Items.AddItem("Task 1")
var_Items.AddBar(h,"Task",2001-01-02,2001-01-06,"K1")
var_Items.ItemBar(h,"K1",10,false)
|
|
642
|
How can I change the key of the bar in the chart
OleObject oG2antt,var_Items
any h
oG2antt = ole_1.Object
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = 2001-01-01
var_Items = oG2antt.Items
h = var_Items.AddItem("Task 1")
var_Items.AddBar(h,"Task",2001-01-02,2001-01-06,"K1")
var_Items.ItemBar(h,"K1",9,"NewK")
var_Items.ItemBar(h,"NewK",3,var_Items.ItemBar(h,"NewK",9))
|
|
641
|
Can I add a bar in the chart, using your EBN files
OleObject oG2antt,var_Items
any h
oG2antt = ole_1.Object
oG2antt.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = 2001-01-01
var_Items = oG2antt.Items
h = var_Items.AddItem("Task 1")
var_Items.AddBar(h,"",2001-01-02,2001-01-05,"K1"," EBN ")
var_Items.ItemBar(h,"K1",7,16777216)
var_Items.AddBar(h,"Task",2001-01-06,2001-01-08,"K2")
|
|
640
|
How can I change the background color of the bar in the chart
OleObject oG2antt,var_Items
any h
oG2antt = ole_1.Object
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = 2001-01-01
oG2antt.Chart.Bars.Copy("Task","TaskR").Color = RGB(255,0,0)
var_Items = oG2antt.Items
h = var_Items.AddItem("Task 1")
var_Items.AddBar(h,"TaskR",2001-01-02,2001-01-06,"K1")
|
|
639
|
How can I change the background color of the bar in the chart
OleObject oG2antt,var_Items
any h
oG2antt = ole_1.Object
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = 2001-01-01
oG2antt.Chart.ShowNonworkingDates = false
var_Items = oG2antt.Items
h = var_Items.AddItem("Task 1")
var_Items.AddBar(h,"Task",2001-01-02,2001-01-06,"K1")
var_Items.ItemBar(h,"K1",7,8421504)
|
|
638
|
How can I change the background color of the HTML text or caption of the bar in the chart
OleObject oG2antt,var_Items
any h
oG2antt = ole_1.Object
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = 2001-01-01
var_Items = oG2antt.Items
h = var_Items.AddItem("Task 1")
var_Items.AddBar(h,"Task",2001-01-02,2001-01-06,"K1")
var_Items.ItemBar(h,"K1",3,"<bgcolor=FF0000> to do </bgcolor>")
|
|
637
|
How can I change the foreground color of the HTML text or caption of the bar in the chart
OleObject oG2antt,var_Items
any h
oG2antt = ole_1.Object
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = 2001-01-01
var_Items = oG2antt.Items
h = var_Items.AddItem("Task 1")
var_Items.AddBar(h,"Task",2001-01-02,2001-01-06,"K1","t<fgcolor=0000FF>o</fgcolor> do")
var_Items.ItemBar(h,"K1",8,16777215)
|
|
636
|
How can I change the foreground color of the HTML text or caption of the bar in the chart
OleObject oG2antt,var_Items
any h
oG2antt = ole_1.Object
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = 2001-01-01
var_Items = oG2antt.Items
h = var_Items.AddItem("Task 1")
var_Items.AddBar(h,"Task",2001-01-02,2001-01-06,"K1")
var_Items.ItemBar(h,"K1",3,"<bgcolor=FF0000> to do </bgcolor>")
var_Items.ItemBar(h,"K1",8,16777215)
|
|
635
|
How can I assign a tooltip to a bar in the chart
OleObject oG2antt,var_Items
any h
oG2antt = ole_1.Object
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = 2001-01-01
var_Items = oG2antt.Items
h = var_Items.AddItem("Task 1")
var_Items.AddBar(h,"Task",2001-01-02,2001-01-04,"K1")
var_Items.ItemBar(h,"K1",6,"This is a bit of text that's displayed when the cursor hovers the bar")
|
|
634
|
How can I vertically align the HTML text or caption of the bar in the chart
OleObject oG2antt,var_Items
any h
oG2antt = ole_1.Object
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = 2001-01-01
var_Items = oG2antt.Items
h = var_Items.AddItem("Task 1")
var_Items.ItemHeight(h,32)
var_Items.AddBar(h,"Task",2001-01-02,2001-01-06,"K1")
var_Items.ItemBar(h,"K1",3,"<bgcolor=FF0000> to do </bgcolor>")
var_Items.ItemBar(h,"K1",5,0)
|
|
633
|
How can I align the HTML text or caption of the bar in the chart
OleObject oG2antt,var_Items
any h
oG2antt = ole_1.Object
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = 2001-01-01
var_Items = oG2antt.Items
h = var_Items.AddItem("Task 1")
var_Items.AddBar(h,"Task",2001-01-02,2001-01-06,"K1")
var_Items.ItemBar(h,"K1",3,"<bgcolor=FF0000> to do </bgcolor>")
var_Items.ItemBar(h,"K1",4,0)
|
|
632
|
How can I assign a text or some HTML caption to a bar in the chart
OleObject oG2antt,var_Items
any h
oG2antt = ole_1.Object
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = 2001-01-01
var_Items = oG2antt.Items
h = var_Items.AddItem("Task 1")
var_Items.AddBar(h,"Task",2001-01-02,2001-01-06,"K1")
var_Items.ItemBar(h,"K1",3," <bgcolor=FF0000>to do</bgcolor> ")
|
|
631
|
How can I change the ending date of the bar in the chart
OleObject oG2antt,var_Items
any h
oG2antt = ole_1.Object
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = 2001-01-01
var_Items = oG2antt.Items
h = var_Items.AddItem("Task 1")
var_Items.AddBar(h,"Task",2001-01-02,2001-01-04,"K1")
var_Items.ItemBar(h,"K1",2,2001-01-06)
|
|
630
|
How can I change the starting date of the bar in the chart
OleObject oG2antt,var_Items
any h
oG2antt = ole_1.Object
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = 2001-01-01
var_Items = oG2antt.Items
h = var_Items.AddItem("Task 1")
var_Items.AddBar(h,"Task",2001-01-02,2001-01-04,"K1")
var_Items.ItemBar(h,"K1",1,2001-01-01)
|
|
629
|
How can I change the style or the name of the bar in the chart
OleObject oG2antt,var_Items
any h
oG2antt = ole_1.Object
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = 2001-01-01
var_Items = oG2antt.Items
h = var_Items.AddItem("Task 1")
var_Items.AddBar(h,"Task",2001-01-02,2001-01-04,"K1")
var_Items.ItemBar(h,"K1",0,"Progress")
|
|
628
|
How can I access properties and methods of the bar in the chart
OleObject oG2antt,var_Items
any h
oG2antt = ole_1.Object
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = 2001-01-01
var_Items = oG2antt.Items
h = var_Items.AddItem("Task 1")
var_Items.AddBar(h,"Task",2001-01-02,2001-01-04,"K1")
var_Items.ItemBar(h,"K1",0,"Progress")
|
|
627
|
How can I remove all bars in the item
OleObject oG2antt,var_Items
any h
oG2antt = ole_1.Object
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = 2001-01-01
var_Items = oG2antt.Items
h = var_Items.AddItem("Task 1")
var_Items.AddBar(h,"Task",2001-01-02,2001-01-04,"K1")
var_Items.ClearBars(h)
|
|
626
|
How can I remove a bar from the chart
OleObject oG2antt,var_Items
any h
oG2antt = ole_1.Object
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = 2001-01-01
var_Items = oG2antt.Items
h = var_Items.AddItem("Task 1")
var_Items.AddBar(h,"Task",2001-01-02,2001-01-04,"K1")
var_Items.RemoveBar(h,"K1")
|
|
625
|
How can I add a bar and some text inside, in the chart area
OleObject oG2antt,var_Items
oG2antt = ole_1.Object
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = 2001-01-01
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",2001-01-02,2001-01-06,," to do ")
|
|
624
|
How can I add a bar and some text inside, in the chart area
OleObject oG2antt,var_Items
oG2antt = ole_1.Object
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = 2001-01-01
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",2001-01-02,2001-01-06,,"<bgcolor=FF0000> to do </bgcolor>")
|
|
623
|
How can I add an anchor or a hyperline in the chart area
OleObject oG2antt,var_Items
oG2antt = ole_1.Object
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = 2001-01-01
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Task 1"),"",2001-01-02,2001-01-14,,"just a <a1>link</a>")
|
|
622
|
How can I add some text or captions in the chart area
OleObject oG2antt,var_Items
oG2antt = ole_1.Object
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = 2001-01-01
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Task 1"),"",2001-01-02,2001-01-14,,"just a <b>caption</b>")
|
|
621
|
How can I add a bar in the chart area
OleObject oG2antt,var_Items
oG2antt = ole_1.Object
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = 2001-01-01
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",2001-01-02,2001-01-04)
|
|
620
|
Is there any option to put a picture or an icon to the thumb part of the scroll bar
OleObject oG2antt
oG2antt = ole_1.Object
oG2antt.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oG2antt.ScrollPartCaption(2,256,"<img>1</img>")
oG2antt.ScrollThumbSize(2,24)
|
|
619
|
How can I scroll fast the chart, or page by page
OleObject oG2antt
oG2antt = ole_1.Object
oG2antt.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oG2antt.ScrollHeight = 20
oG2antt.ScrollButtonWidth = 20
oG2antt.AllowChartScrollPage = true
oG2antt.ScrollPartCaption(2,2048,"<img>1</img>")
oG2antt.ScrollPartCaption(2,32,"<img>2</img>")
|
|
618
|
How can I scroll fast the chart, or page by page
OleObject oG2antt
oG2antt = ole_1.Object
oG2antt.ScrollButtonWidth = 16
oG2antt.AllowChartScrollPage = true
oG2antt.ScrollPartCaption(2,2048,"<<")
oG2antt.ScrollPartCaption(2,32,">>")
|
|
617
|
How can I scroll fast the chart, or page by page
OleObject oG2antt
oG2antt = ole_1.Object
oG2antt.AllowChartScrollPage = true
|
|
616
|
How can I display years, from 3 to 3
OleObject oG2antt,var_Level
oG2antt = ole_1.Object
oG2antt.Chart.UnitWidth = 64
var_Level = oG2antt.Chart.Level(0)
var_Level.Label = "<%yyyy%>"
var_Level.Unit = 0
var_Level.Count = 3
|
|
615
|
How can I display years
OleObject oG2antt,var_Level
oG2antt = ole_1.Object
oG2antt.Chart.UnitWidth = 64
var_Level = oG2antt.Chart.Level(0)
var_Level.Label = "<%yy%>"
var_Level.Unit = 0
|
|
614
|
How can I display years
OleObject oG2antt
oG2antt = ole_1.Object
oG2antt.Chart.UnitWidth = 48
oG2antt.Chart.Level(0).Label = 0
|
|
613
|
How can I display months, from 3 to 3
OleObject oG2antt,var_Level
oG2antt = ole_1.Object
oG2antt.Chart.FirstVisibleDate = 2001-01-01
oG2antt.Chart.LevelCount = 2
oG2antt.Chart.UnitWidth = 64
oG2antt.Chart.Level(0).Label = 1
var_Level = oG2antt.Chart.Level(1)
var_Level.Label = "<%mmmm%>"
var_Level.Unit = 16
var_Level.Count = 3
|
|
612
|
How can I display months
OleObject oG2antt,var_Level
oG2antt = ole_1.Object
oG2antt.Chart.UnitWidth = 64
oG2antt.Chart.LevelCount = 2
oG2antt.Chart.Level(0).Label = 1
var_Level = oG2antt.Chart.Level(1)
var_Level.Label = "<%mmmm%>/<%yy%>"
var_Level.Unit = 16
|
|
611
|
How can I display months
OleObject oG2antt
oG2antt = ole_1.Object
oG2antt.Chart.LevelCount = 2
oG2antt.Chart.UnitWidth = 64
oG2antt.Chart.Level(0).Label = 1
oG2antt.Chart.Level(1).Label = 16
|
|
610
|
How can I display weeks
OleObject oG2antt
oG2antt = ole_1.Object
oG2antt.Chart.LevelCount = 2
oG2antt.Chart.UnitWidth = 64
oG2antt.Chart.Level(0).Label = 17
oG2antt.Chart.Level(1).Label = 256
|
|
609
|
How can I display weeks
OleObject oG2antt
oG2antt = ole_1.Object
oG2antt.Chart.LevelCount = 2
oG2antt.Chart.Level(0).Label = 17
oG2antt.Chart.Level(1).Label = "<%ww%>"
|
|
608
|
How can I display days, from 2 to 2
OleObject oG2antt,var_Level
oG2antt = ole_1.Object
oG2antt.Chart.LevelCount = 2
oG2antt.Chart.Level(0).Label = 256
var_Level = oG2antt.Chart.Level(1)
var_Level.Label = "<%dd%>"
var_Level.Count = 2
|
|
607
|
How can I display days
OleObject oG2antt
oG2antt = ole_1.Object
oG2antt.Chart.LevelCount = 2
oG2antt.Chart.Level(0).Label = 256
oG2antt.Chart.Level(1).Label = "<%dd%>"
|
|
606
|
How can I display days
OleObject oG2antt
oG2antt = ole_1.Object
oG2antt.Chart.LevelCount = 2
oG2antt.Chart.Level(0).Label = 256
oG2antt.Chart.Level(1).Label = 4096
|
|
605
|
How can I display hours, from 6 to 6
OleObject oG2antt,var_Level
oG2antt = ole_1.Object
oG2antt.Chart.FirstVisibleDate = "00:00"
oG2antt.Chart.LevelCount = 2
oG2antt.Chart.Level(0).Label = 4096
var_Level = oG2antt.Chart.Level(1)
var_Level.Label = "<%hh%>"
var_Level.Count = 6
|
|
604
|
How can I display hours
OleObject oG2antt
oG2antt = ole_1.Object
oG2antt.Chart.LevelCount = 2
oG2antt.Chart.Level(0).Label = 4096
oG2antt.Chart.Level(1).Label = "<%hh%>"
|
|
603
|
How can I display hours
OleObject oG2antt
oG2antt = ole_1.Object
oG2antt.Chart.LevelCount = 2
oG2antt.Chart.Level(0).Label = 4096
oG2antt.Chart.Level(1).Label = 65536
|
|
602
|
How can I display minutes, from 15 to 15
OleObject oG2antt,var_Level
oG2antt = ole_1.Object
oG2antt.Chart.FirstVisibleDate = "00:00"
oG2antt.Chart.LevelCount = 2
oG2antt.Chart.Level(0).Label = 65536
var_Level = oG2antt.Chart.Level(1)
var_Level.Label = "<%nn%>"
var_Level.Count = 15
|
|
601
|
How can I display minutes
OleObject oG2antt
oG2antt = ole_1.Object
oG2antt.Chart.LevelCount = 2
oG2antt.Chart.Level(0).Label = 65536
oG2antt.Chart.Level(1).Label = "<%nn%>"
|